Sub μ()
    
    Dim WB As Workbook
    Dim  As Variant
    Dim  As String
    
    On Error Resume Next
    
        With Application.FileDialog(msoFileDialogFolderPicker)
            .Show
             = .SelectedItems(1)
        End With

        If Err.Number <> 0 Or  = False Then Exit Sub

    On Error GoTo 0

     = Dir( & "\*.xls*")
    
    Application.ScreenUpdating = False
    
        Do While  <> ""
        
            Set WB = Workbooks.Open(Filename:= & "\" & )
            
            With WB
                .PrintOut
                .Close SaveChanges:=False
            End With
            
             = Dir
        
        Loop
    
    Application.ScreenUpdating = True
    
End Sub
